(deflayer forwarder)

(define-layered-method receive-text :in-layer forwarder ((receviver im-remote-facade) message)
                       ...)

(deflayer video-at-home)

(ensure-active-layers forwarder :in-layer video-at-home ((receiver (and (typep 'im-remote-facade)
                                                                        (not (device "TV"))))))

++++++++

(define-dlayer video-at-home)

(define-layer forwarder)

(ensure-local-layers forwarder :in-dlayer video-at-home (lambda (receiver) (and (typep 'im-remote-facade)
                                                                        (not (device "TV"))))

(activate-layer-if forwarder 

(activate-dlayer-if 
